home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / net / drexxmail.lha / InstallDREXXMAIL < prev    next >
Text File  |  1994-10-04  |  3KB  |  87 lines

  1. /* Install script for DREXXMAIL ... AREXX because I understand */
  2. /* AREXX and not C= Installer                                  */
  3.  
  4. /* This script is for DREXXMAIL Release 3 !                    */
  5.  
  6. /* Last modification - stuff for demon.rexx 9-28-94            */
  7.  
  8. options results
  9. call addlib("rexxreqtools.library",0,-30,0)
  10.  
  11. /* Some initializations... */
  12.  
  13. lf = '0a'x
  14. cr = '0d'x
  15. colon='3a'x
  16. semicol='3b'x
  17. qmark='22'x
  18. fonttag=""
  19. address command
  20.  
  21. /* Tell em what this does ... */
  22.  
  23. msg = "This script will install DREXXMAIL 3.00 for you ..."||lf||"Please read the documentation FIRST!"
  24. call rtezrequest(msg,"_Ok, I read it already|_Cancel!","DREXXMAIL Install",fonttag)
  25. if rtresult = 0 then exit
  26.  
  27. /* Do it ... */
  28.  
  29. msg = "Please enter the full path where you want the DREXXMAIL scripts."
  30. drmdir = rtgetstring("dnet:drexxmail",msg,"DREXXMAIL Install", , fonttag)
  31. if drmdir = "" then exit
  32.  
  33. 'makedir 'drmdir
  34. 'copy #?.rexx 'drmdir 'QUIET'
  35. 'copy demon.rexx.info 'drmdir 'QUIET'
  36. msg = "Please enter the full path of the editor you want for news/mail."
  37. drmedit = rtgetstring("sys:tools/memacs",msg,"DREXXMAIL Install", , fonttag)
  38. if drmedit = "" then exit
  39.  
  40. msg = "Please enter the full path of your mail signature file."
  41. drmsig = rtgetstring("uulib:.signature",msg,"DREXXMAIL Install", , fonttag)
  42. if drmsig = "" then exit
  43.  
  44. msg = "Please enter your USERNAME (login id) on your UNIX host."
  45. username = rtgetstring("",msg,"DREXXMAIL Install", , fonttag)
  46. if username = "" then exit
  47.  
  48. msg = "Please enter the path for your UNIX mail directory on your UNIX host."
  49. drmunixdir = rtgetstring("/usr/spool/mail/",msg,"DREXXMAIL Install", , fonttag)
  50. if drmunixdir = "" then exit
  51.  
  52. msg = "Please enter the path for your LOCAL mail directory."
  53. drmlocaldir = rtgetstring("uumail:",msg,"DREXXMAIL Install", , fonttag)
  54. if drmlocaldir = "" then exit
  55.  
  56. msg = "Please enter the command you'd like DEMON to use to"||lf||"notify you of new mail."
  57. drmnotify = rtgetstring("rx drexxmail:default_notify.rexx",msg,"DREXXMAIL Install", , fonttag)
  58. if drmnotify = "" then exit
  59.  
  60. /* Prepare the user-startup add on */
  61.  
  62. call open .us,"T:drmadd",write
  63. msg = "I am going to append the your settings to S:user-startup."
  64. call writeln .us, semicol||"BEGIN drexxmail"
  65. call writeln .us, "assign drexxmail"||colon drmdir
  66. call writeln .us, "setenv DRMEDITOR "||qmark||drmedit||qmark
  67. call writeln .us, "setenv DRMSIGNATURE "||qmark||drmsig||qmark
  68. call writeln .us, "setenv USERNAME "||qmark||username||qmark
  69. call writeln .us, "setenv DRMUNIXDIR "||qmark||drmunixdir||qmark
  70. call writeln .us, "setenv DRMLOCALDIR "||qmark||drmlocaldir||qmark
  71. call writeln .us, "setenv DRMNOTIFY "||qmark||drmnotify||qmark
  72. call writeln .us, semicol||"END drexxmail"
  73. call close .us
  74.  
  75. call rtezrequest(msg,"_Ok|_Cancel!","DREXXMAIL Install",fonttag)
  76. if rtresult = 0 then exit
  77.  
  78. /* Add to user-startup */
  79.  
  80. 'join s:user-startup t:drmadd AS t:user-startup'
  81. 'copy t:user-startup s:user-startup QUIET'
  82.  
  83. msg = "Done"||lf||"You'll be able to use DREXXMAIL on your next reboot..."
  84. call rtezrequest(msg,"_Wow!","DREXXMAIL Install",fonttag)
  85. exit
  86.  
  87.